home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 60.zip / BS1 part 60 / Kick Pascal v2.10 d1.adf / INCLUDE / exec / devices.h < prev    next >
Text File  |  1990-11-01  |  646b  |  30 lines
  1. {$if not def EXEC_DEVICES_H}
  2. CONST EXEC_DEVICES_H=0;
  3. {$if not def EXEC_LIBRARIES_H;incl"exec/libraries.h";endif}
  4. {$if not def EXEC_PORTS_H;incl"exec/ports.h";endif}
  5. TYPE
  6. p_Device=^Device;
  7. Device=Record
  8.  dd_Library:_Library
  9. End;
  10. p_Unit=^Unit;
  11. Unit=Record
  12.  unit_MsgPort:MsgPort;
  13.  unit_flags,unit_pad:Byte;
  14.  unit_OpenCnt:Word
  15. End;
  16. CONST
  17.  UNITF_ACTIVE=$1;
  18.  UNITF_INTASK=$2;
  19. {$endif}
  20. {$if not def EXEC_DEVICES_LIB}
  21. Const EXEC_DEVICES_LIB=0;
  22. Library SysBase:
  23. -432:Procedure AddDevice(a1:p_Device);
  24. -438:Procedure RemDevice(a1:p_Device);
  25. -444:Function OpenDevice(a0:Str; d0:Long; a1:Ptr; d1:Long):Long;
  26. -450:Procedure CloseDevice(a1:Ptr)
  27. End;
  28. {$endif}
  29.  
  30.